home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / ElectricAlias / Aliases / aliases.Tcl < prev    next >
Text File  |  1994-06-18  |  2KB  |  46 lines
  1. # FILE: aliases.Tcl
  2. #
  3. # LAST UPDATE: 01/08/93 8:00:35 AM
  4. #
  5. #    Aliases for TCL mode
  6.  
  7.     electricAlias-def ･Tcl ･Tcl ･Tcl
  8.     electricAlias-var Tcl bb "¥{"
  9.     electricAlias-var Tcl eb "¥}"
  10.     electricAlias-var Tcl bc "#"
  11.     electricAlias-var Tcl ec ""
  12.     electricAlias-var Tcl sep "#############################################################################¥r"
  13.     electricAlias-def Tcl ､ "､¥{･¥}"
  14.     electricAlias-def ･Tcl proc    "､ﾇaskalias {procedure name} NAMEﾈproc ､{NAME} ¥{･¥} ¥{¥r¥t･¥r¥}¥r､{bc}endproc ､{NAME}､{ec}¥r､{bc}､{sep}､{ec}¥r･"
  15.     electricAlias-def ･Tcl foreach "foreach ¥{･¥} ¥{･¥} ¥{¥r¥t･¥r¥}¥r､{bc}endforeach･"
  16.     electricAlias-def ･Tcl for     "for ¥{･¥} ¥{･¥} ¥{･¥} ¥{¥r¥t･¥r¥}¥r､{bc}endfor･"
  17.     electricAlias-def ･Tcl while   "while ¥{･¥} ¥{¥r¥t･¥r¥}¥r､{bc}endwhile･"
  18.     electricAlias-def ･Tcl if      "if ¥{･¥} ¥{¥r¥t･¥r¥}･"
  19.     electricAlias-def ･Tcl else    "¥b¥} else ¥{¥r･"
  20.     electricAlias-def ･Tcl elseif  "¥b¥} else ¥{ if ¥{･¥} ¥{¥r･¥r¥b¥}"
  21.     electricAlias-def ･Tcl case    "case ¥{･¥} ¥{¥r  ･¥r¥}¥r､{bc}endcase･"
  22.     electricAlias-def ･Tcl "{"     "¥{･¥} ¥{¥r¥t･¥r¥}¥r､{bc}endcase ･¥r･"
  23.     electricAlias-def ･Tcl default "default ¥{¥r¥t･¥r¥}･"
  24.  
  25.     # Following are for lazy/forgetful programmer's
  26.     electricAlias-def ･Tcl switch  "case ¥{･¥} ¥{¥r¥t･¥r¥}･"
  27.     electricAlias-def Tcl ea "electricAlias"
  28.     electricAlias-def Tcl sprintf "format"
  29.  
  30.     electricAlias-def Tcl ¥$` "､ ¥bﾇ･ﾈ･"
  31.     electricAlias-def Tcl ¥${ "､ ¥b{･}･"
  32.     electricAlias-def Tcl ¥$? "､ ¥bﾇaskalias ･PROMPT VARNAMEﾈ･"
  33.  
  34.     electricAlias-def Tcl "=" "=="
  35.     electricAlias-def Tcl backwordWord backwardWord
  36.  
  37.  
  38.     electricAlias-def "･" "･file" {# FILE: ､{file}
  39. #
  40. # LAST UPDATE: ､ﾇmtime [now] shortﾈ
  41. #}
  42.     electricAlias-def "･" "･procs" {# This file contains the following TCL procedure(s):
  43. #
  44. #    ､ﾇaskalias "TCL Proc" procﾈ､{proc} -- 
  45. }
  46.